home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / INTRO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  43 lines
  1. 0  REM  COURTESY ROGER WAGNER
  2. 5  GOSUB 11000:BEG = EN
  3. 10  REM  ASK PAUL RAYMER FOR DETAILS
  4. 100  HOME 
  5. 101  POKE 50,63
  6. 102  FOR SJ = 3 TO 13
  7. 103  VTAB SJ: HTAB 13: IF SJ <7  OR SJ >8  THEN  PRINT  SPC( 2): GOTO 105
  8. 104  VTAB SJ: HTAB 13: PRINT  SPC( 6)
  9. 105  VTAB SJ: HTAB 19: PRINT  SPC( 2)
  10. 106  VTAB SJ: HTAB 23: PRINT  SPC( 2)
  11. 107  VTAB SJ: HTAB 28: IF SJ < >11  THEN  PRINT  SPC( 2)
  12. 108  NEXT SJ
  13. 109  NORMAL 
  14. 110  PRINT 
  15. 195  VTAB 21: PRINT "USE ARROW KEYS TO SCROLL TEXT"
  16. 199  VTAB 23: INPUT "PRESS <RETURN> FOR DETAILS!";I$: HOME 
  17. 210  POKE 10,4: POKE 11,1
  18. 215 LB = BEG - INT(BEG/256) *256:HB =  INT(BEG/256)
  19. 220  POKE 8,LB: POKE 9,HB
  20. 225 EN =  PEEK(175) +256 * PEEK(176)
  21. 230  REM ACTUAL SCROLLING LOOP
  22. 240  FOR I = 1 TO 25: CALL SU: NEXT I
  23. 250  POKE 6,LB: POKE 7,HB: CALL SD
  24. 251 P1 =  PEEK(103):P2 =  PEEK(104)
  25. 255 AD =  PEEK(121) +256 * PEEK(122) +1: POKE 103,AD - INT(AD/256) *256: POKE 104, INT(AD/256)
  26. 260 KEY =  PEEK( -16384): IF KEY <127  THEN 260
  27. 270  POKE  -16368,0: IF KEY < >136  THEN 280
  28. 275  IF  PEEK(6) +256 * PEEK(7) > = BEG  THEN  CALL SD
  29. 277  GOTO 260
  30. 280  IF KEY < >149  THEN 290
  31. 285  IF  PEEK(8) +256 * PEEK(9) <EN  THEN  CALL SU
  32. 287  GOTO 260
  33. 290  REM RESTORE PROGRAM
  34. 295  HOME : PRINT "BYE..."
  35. 300  POKE 103,P1: POKE 104,P2: END 
  36. 11000  GOSUB 11035:EN = EN +225
  37. 11005 SD = EN -130:SU = EN -225
  38. 11010  POKE 10,4: POKE 11,0
  39. 11015  READ AD: IF AD = 0  THEN  RETURN 
  40. 11020  READ RA:RA = EN -RA:AD = EN -AD
  41. 11025  POKE AD,RA - INT(RA/256) *256: POKE AD +1, INT(RA/256): GOTO 11015
  42. 11030  DATA 31,24,74,34,101,32,123,32,132,34,172,34,199,32,221,32,0
  43. 11035 :EN =  PEEK(121) +256 * PEEK(122) +29: RETURN